home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / st80_r41.lha / st80_r41 / RDoItR41 / tvtwmrc-fragment < prev    next >
Text File  |  1993-07-23  |  5KB  |  93 lines
  1. #
  2. # This is a fragment from my .tvtwmrc file.
  3. #
  4. {
  5. "Workspace" f.title
  6. "Smalltalk Oldstyle R41"    f.menu "st80_oldstyle_R41"
  7. "Smalltalk Oldstyle R40"    f.menu "st80_oldstyle_R40"
  8. "Terminal..."           !"/local/all/xterm -bg navyblue -fg cyan -cr red2 &"
  9. "Epoch..."             !"/local/all/epoch -nm -bg navyblue -fg green &"
  10. "Other Programs"        f.menu "other_programs"
  11. "tvtwm Utilities"       f.menu "defops"
  12. "Restart"       f.restart
  13. "Exit"          f.quit
  14. }
  15.  
  16. #
  17. # See LauncherView (class) where it initializes its menu for
  18. # what commands to use here.
  19. #
  20. menu "st80_oldstyle_R41"
  21. {
  22. "restore display"       !"$HOME/bin/rdoit localhost 8004 '[ScheduledControllers restore] fork' &"
  23. "collect garbage"       !"$HOME/bin/rdoit localhost 8004 '[ObjectMemory verboseGlobalCompactingGC] fork' &"
  24. "exit project"          !"$HOME/bin/rdoit localhost 8004 '[Project current exit] fork' &"
  25. "browser"               !"$HOME/bin/rdoit localhost 8004 '[Browser open] fork' &"
  26. "workspace"             !"$HOME/bin/rdoit localhost 8004 '[ComposedTextView open] fork' &"
  27. "file list"             !"$HOME/bin/rdoit localhost 8004 '[FileBrowser open] fork' &"
  28. "file editor"           !"$HOME/bin/rdoit localhost 8004 '[FileBrowser openPrompted] fork' &"
  29. "terminal"              !"/local/all/xterm &"
  30. "project"               !"$HOME/bin/rdoit localhost 8004 '[Project openViewOn: Project new] fork' &"
  31. "----------------"      f.nop
  32. "system transcript"     !"$HOME/bin/rdoit localhost 8004 \"[TextCollectorView open: Transcript label: 'System Transcript'] fork\" &"
  33. "system workspace"      !"$HOME/bin/rdoit localhost 8004 '[ComposedTextView openSystemWorkspace] fork' &"
  34. "----------------"      f.nop
  35. "New Options"           f.menu "st80_old_newOps_R41"
  36. "----------------"      f.nop
  37. "save"                  !"$HOME/bin/rdoit localhost 8004 '[ObjectMemory saveDialogThenQuit: false] fork' &"
  38. "Quit"                  !"$HOME/bin/rdoit localhost 8004 '[ObjectMemory quitDialog] fork' &"
  39. }
  40.  
  41. menu "st80_old_newOps_R41"
  42. {
  43. "Browse class"          !"$HOME/bin/rdoit localhost 8004 '[Browser newPickClass] fork' &"
  44. "Browse senders"        !"$HOME/bin/rdoit localhost 8004 '[Browser promptThenBrowseCalls] fork' &"
  45. "Browse implementors"   !"$HOME/bin/rdoit localhost 8004 '[Browser promptThenBrowseImplementors] fork' &"
  46. "----------------"      f.nop
  47. "open change list"      !"$HOME/bin/rdoit localhost 8004 '[ChangeListView open] fork' &"
  48. "inspect ChangeSet"     !"$HOME/bin/rdoit localhost 8004 '[ChangeSet current inspect] fork' &"
  49. "file out ChangeSet"    !"$HOME/bin/rdoit localhost 8004 '[Filename fileOutChanges] fork' &"
  50. "empty ChangeSet"       !"$HOME/bin/rdoit localhost 8004 '[(DialogView confirm: 'Really empty the current change set?') ifTrue: [ChangeSet noChanges]] fork' &"
  51. }
  52.  
  53. menu "st80_oldstyle_R40"
  54. {
  55. "restore display"       !"$HOME/bin/rdoit localhost 8004 '[ScheduledControllers restore] fork' &"
  56. "collect garbage"       !"$HOME/bin/rdoit localhost 8004 '[ObjectMemory verboseCompactingGC] fork' &"
  57. "exit project"          !"$HOME/bin/rdoit localhost 8004 '[Project current exit] fork' &"
  58. "browser"               !"$HOME/bin/rdoit localhost 8004 '[BrowserView openOn: SystemOrganization] fork' &"
  59. "workspace"             !"$HOME/bin/rdoit localhost 8004 '[StringHolderView open] fork' &"
  60. "file list"             !"$HOME/bin/rdoit localhost 8004 '[FileBrowser open] fork' &"
  61. "file editor"           !"$HOME/bin/rdoit localhost 8004 '[FileBrowser openPrompted] fork' &"
  62. "terminal"              !"/local/all/xterm &"
  63. "project"               !"$HOME/bin/rdoit localhost 8004 '[Project openViewOn: Project new] fork' &"
  64. "----------------"      f.nop
  65. "system transcript"     !"$HOME/bin/rdoit localhost 8004 \"[TextCollectorView open: Transcript label: 'System Transcript'] fork\" &"
  66. "system workspace"      !"$HOME/bin/rdoit localhost 8004 '[StringHolderView openSystemWorkspace] fork' &"
  67. "----------------"      f.nop
  68. "New Options"           f.menu "st80_old_newOps_R40"
  69. "----------------"      f.nop
  70. "save"                  !"$HOME/bin/rdoit localhost 8004 '[Smalltalk saveDialog] fork' &"
  71. "Quit"                  !"$HOME/bin/rdoit localhost 8004 '[Smalltalk quitDialog] fork' &"
  72. }
  73.  
  74. menu "st80_old_newOps_R40"
  75. {
  76. "Browse class"          !"$HOME/bin/rdoit localhost 8004 '[Browser newPickClass] fork' &"
  77. "Browse senders"        !"$HOME/bin/rdoit localhost 8004 '[Smalltalk promptThenBrowseCalls] fork' &"
  78. "Browse implementors"   !"$HOME/bin/rdoit localhost 8004 '[Smalltalk promptThenBrowseImplementors] fork' &"
  79. "----------------"      f.nop
  80. "open change list"      !"$HOME/bin/rdoit localhost 8004 '[ChangeListView open] fork' &"
  81. "inspect ChangeSet"     !"$HOME/bin/rdoit localhost 8004 '[Smalltalk changes inspect] fork' &"
  82. "file out ChangeSet"    !"$HOME/bin/rdoit localhost 8004 '[Filename fileOutChanges] fork' &"
  83. "empty ChangeSet"       !"$HOME/bin/rdoit localhost 8004 '[(DialogView confirm: 'Really empty the current change set?') ifTrue: [Smalltalk noChanges]] fork' &"
  84. }
  85.  
  86. ####################################################################
  87. # Some qwerty bindings
  88. ####################################################################
  89.  
  90. # For ST80 R4.1
  91. "b" =   : root : f.exec "$HOME/bin/rdoit localhost 8004 '[Browser open] fork' &"
  92. "w" =   : root : f.exec "$HOME/bin/rdoit localhost 8004 '[ComposedTextView open] fork' &"
  93.